home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / debug / memmon.dir / 00076_Script_Profile scripts < prev   
Text File  |  1995-02-15  |  429b  |  15 lines
  1. On ProfileCasts
  2.   set output = ""
  3.   repeat with temp = 1 to the number of castmembers
  4.     if the castType of cast temp <> #empty then
  5.       set castSize = the size of cast temp /1024
  6.       if castSize < 1 then 
  7.         put "Cast" && temp && "is <1k" & RETURN after output
  8.       else
  9.         put "Cast" && temp && "is" && castSize & "k" & RETURN after output
  10.       end if
  11.     end if
  12.   end repeat
  13.   return output
  14. end
  15.